args <- commandArgs(TRUE)

d <- read.table(args[1]) 

mean(d)
